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TITLE TSTTY2 — Auxiliary terminal control overlay 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSTTY2 

TSTTY2: . RAD50 /TT2/ > Overlay region id 

TSTTY2 is an auxiliary terminal control overlay. 

The routines in TSTTY2 could logically go in TSTTY except 

that overlay has already reached the 8Kb size limit. 

Copyright <c) 1980.- 1981.- 1 932.- 1983? 1984, 198?. 
S&H Computer Systems? Inc. 
Nashville, Tennessee USA 

Global definitions 

. GLOBL AUTSPD, DOSWIT, LINSWT, STTCPL, TTCPL, SPPRED 

Global references 

. GLOBL URO, QFREE, GETQ, S*TTSC, EMTMAP, CQ*PA5, LINPNT, DELCHR 

. GLOBL LRTCHR, CVTLC, CG*RO, S*IOFN, *NOINT, LSW7 

. GLOBL *VBELL, EMTBLK, VALADW, LTTCR> EMTXIT 

. GLOBL CQ*JOB, CQ$RNS, LPRI, CG*PRI, CP*STD 

. GLOBL CQ*CP, CQSRTN, GCOMPL, LINNXT 

. GLOBL LABTIM, *RBRK, LSW10, S600, SETSPD, LMXPRM, S9600, *NABRS 

. GLOBL L.SW9, *NOVLN, LSW2, *SUCF, *LOFCF, *NOIN, LSW3, LNPRIM 

. GLOBL LSECPT, FSTSL, LSTSL, INITLN, LPARNT, LSECPT, *VNOTT, LSW 

. GLOBL LBSPRI, VPRILO, VPRIHI, VPRIVR, LPRI, LWINDO, WINSF 

. GLOBL LNMAP, $INIT, WINST, LOTSPC, LOTPNT, LQTBUF, LOTEND 

. GLOBL TRNSTR, FORCEX, OVRHC, PR7, PSW, KPAR6, LTTPAR, INTPRI 

. GLOBL S19200, S4800, S3600, S2400, S1B00, S1200, S300, S150, SI 10 



Macro definitions 



. MACRO 
BIS 
. ENDM 



DISABL 
#PR7> e#psw 
DISABL 



; DISABLE INTERRUPTS 



> ENABLE INTERRUPTS 



. MACRO ENABL 

BIC INTPRI, S#PSW 

. ENDM ENABL 



MACRO OCALL ENTADD 
IF B, ENTADD 

.ERROR ; OCALL without entry address 



. ENDC 




CALL 


OVRHC 


. WORD 


ENTADD 


. ENDM 


OCALL 



The TTMAP and TTMAPX macros are used to map kernel-mode par6 to the 
terminal character buffer area. The previous contents of par6 map 
register are pushed on the stack and may be restored by using the 
UNMAP or UNMAPX macros. 
R.t must contain the line index number of the line whose buffers 
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are being accessed. 

The difference between the TTMAP-UNMAP macros and the TTMAPX-UNMAPX 

macros is that the X-versions are more efficient but may only be 

used from within interrupt service routines where we are guaranteed 

to be running on the system stack. 

The TTMAP and UNMAP versions of the macros must only be 

used in sections of code where the interrupts are disabled. 



c 

€ 



. MACRO 
MOV 
. ENDM 



00000; 



000000 



Data areas 
MAPHLD: . WORD 



TTMAPX 

LTTPAR < R 1 > , e#KPAR6 

TTMAPX 



. MACRO UNMAP X 

. ENDM UNMAP X 

. MACRO TTMAP 

MOV @#KPAR6, MAPHLD 

MOV LTTPAR <R1), @#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, @#KPAR6 

. ENDM UNMAP 



; TEMP CELL USED BY TTMAP MACRO 



€ 
t 
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SBTTL AUTSPD 



Do autobaud speed selection for a line 



AUTSPD is called when a character is received for a line that is not 
loged on and which is to have autobaud speed selection. 



Inputs: 
R4 = Line index number. 
R5 = Character received. 

Outputs: 
C-flag cleared ===> Start this line now. 

Do not start this line. 



000004 010146 

000006 010246 

000010 010346 

000012 010401 

000014 042705 177600 



000020 026127 000000G 000142 
000026 101055 



> C-flag set 


==> Do 


AUTSPD: MOV 


Rl, -<SP> 


MOV 


R2, -<SP) 


MOV 


R3, -<SP) 


MOV 


R4, Rl 


BIC 


# A C177,R5 



000030 032761 0000000 0000000 

000036 001405 

000040 012700 0000000 

000044 004737 0000000 

000050 000436 



000052 012702 000230' 

000056 016103 0000000 

000062 000303 

000064 042703 177760 

000070 020327 0000000 

000074 001411 

000076 012702 000256' 

000102 020327 0000000 

000106 001404 



6*: 



; Carry line index number in Rl 
;Mask character to 7 bits 

Ignore characters that come in too fast 

CMP LABTIM(Rl), #98. ; Should we check this character? 
BHI 10* ;Br if not 

If we received a break <framing error), set the speed to 600 baud 
and get another character for autobaud detection. 

BIT #*RBRK, LSW10<R1>; Did we receive a break? 

BEG 6* i Br if not 

MOV #S600, RO i Select 600 baud 

CALL SETSPD ; Set line speed 

BR 8* > Don't start line yet 

See if we should search speed table 1 or 2 

Assume we are running at 9600 baud 

Get current line speed 

Get to low-order byte 

Clear all but speed code 

Is speed currently 9600? 

Br if yes 

Assume speed is 600 baud 

Is speed currently 600? 

Br if yes 

Current speed is neither 9600 baud nor 600 baud. 

If character is carriage return, assume current speed is correct. 



MOV 


#ASTBL1, R2 


MOV 


LMXPRM<R1),R3 


SWAB 


R3 


BIC 


#■-017, R3 


CMP 


R3, #S9600 


BEQ 


1* 


MOV 


#ASTBL2> R2 


CMP 


R3, #S600 


BEO 


1* 



000110 120527 
000114 001427 
000116 000407 



000015 



CMPB 

BEQ 

BR 



R5,#15 

11* 

5* 



; Is character carriage return? 

; Br if yes — speed must be correct 

; Set speed to 9600 baud 



See if we can find the received character in the autobaud table 



000120 105762 000001 
000124 001404 
000126 120522 



1*: 



TSTB 


1(R2) 


BEQ 


5* 


CMPB 


R5, (R2) + 



i Have we reached the end of the table? 

; Br if at end of table 

; Does received char match this table entry? 
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58 000130 

59 000132 

60 000134 
61 

62 
63 
64 

65 000136 

66 000142 
67 

68 
69 
70 

71 000146 

72 000154 

73 000162 

74 000164 
75 

76 
77 

78 000166 

79 000170 
80 

81 
82 
83 

84 000174 

85 000202 

86 000210 
87 

88 

89 

90 000212 

91 

92 

93 000224 

94 000226 



001416 
105722 
000771 



BEQ 


2* 


TSTB 


<R2) + 


BR 


1* 



Page 2-i 



j Br if yes — We found the speed 
;Skip over speed code for this entry 
; Loop if more entries to check 



We did not find a matching character in this table. 
Reset speed to 9600 baud. 



012700 
004737 



OOOOOOG 
OOOOOOG 



5$: 



MOV 
CALL 



#S9600, RO 
SETSPD 



; Select 9600 baud 
; Set the line speed 



012761 
052761 
000261 
000412 



012761 
042761 
000241 



042761 
012603 
012602 
012601 
000207 



000144 OOOOOOG 
OOOOOOG OOOOOOG 



8*: 
10*: 



We could not identify this character. 

Start timer which will reset- the baud rate to 9600 after 10 seconds. 

MOV #100. , LABTIM<R1>; Start autobaud timer for this line 

BIS #*NABRS, LSW9(R1>; Reset speed to 9600 baud after time interval 



JEC 



BR 9* 
We found the correct speed entry for this line 



; Say not to start the line this time 
; Fini shed 



>*: 



004737 OOOOOOG 



MOVB 
CALL 



(R2>+, RO 
SETSPD 



> Get the correct speed code 
i Set the line speed 



Set a short timer to cause us to ignore any garbage characters 
that may be received after the autobaud character. 



000002 OOOOOOG 
OOOOOOG OOOOOOG 



11*: 



MOV 
BIC 
CLC 

Finished 



OOOOOOG OOOOOOG 9*: 



BIC 
MOV 
MOV 
MOV 
RETURN 



#2. , LABTIM<R1 ) ; Ignore input chars for 0.2 seconds 
#*NABRS> LSW9<R1>j Clear need-reset flag 

iSignal to start the line 



#*RBRK, LSW10<R1>; Clear break-received flag for line 
<SP)+, R3 
(SP)+, R2 
<SP)+,R1 
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i 
( 



3 




4 


000230 


5 


000232 


6 


000234 


7 


000236 


a 


000240 


9 


000242 


10 


000244 


n 


000246 


12 




13 




14 


000250 


15 




16 


000252 


17 


000254 


18 




19 




20 




21 


000256 


22 


000260 


23 


000262 


24 


000264 


25 


000266 


26 


000270 


27 




cS 


000272 


29 




30 


000274 


31 


000276 


32 


000300 



177 
176 
175 
172 
17.1 
16P 
015 
146 



170 

000 
000 



177 
176 
172 
171 
170 
162 

146 

160 
140 
000 



OOOG 
0000 
000G 
0000 
0000 
0000 
0000 
0000 



OOOG 

0000 
000 



0000 
OOOG 
0000 
0000 
OOOG 
OOOG 

OOOG 

OOOG 
OOOG 
000 



> Table 


to ind 


icate speed 


ASTBL1: 


BYTE 


177, SI 9200 




BYTE 


176, SI 9200 




BYTE 


175, S19200 




BYTE 


172, SI 9200 




BYTE 


171, S19200 




BYTE 


162, SI 9200 




BYTE 


015, S9600 




BYTE 


146, S4S00 


y i 


BYTE 


014, S3600 


t f 


BYTE 


176, S2400 




BYTE 


170, S2400 


> > 


BYTE- 


160, S1B00 




BYTE 


000, SI 200 




BYTE 


0, 



when u»e are receiving at 9600 baud 



Table to indicate speed when me are receiving at 600 baud 



ASTBL2: 


. BYTE 


177, S2400 




. BYTE 


176, S1200 




. BYTE 


172, S1200 




. BYTE 


171, S1200 




. BYTE 


170, S1200 




. BYTE 


162, SI 200 


t t 


. BYTE 


015, S600 




. BYTE 


146, S300 


i t 


. BYTE 


170, SI 50 




. BYTE 


160, S110 




. BYTE 


140, SI 10 




. BYTE 


0, 
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. SBTTL DOSWIT — Switch to a virtual line 

DOSWIT is called when we receive a controI-W~dig it sequence. 

Inputs: 
Rl w Current virtual line index number. 
R5 = Binary value of virtual line selected. 



000302 
000304 
000306 



000310 
000316 
000320 
000326 
000330 
000336 



000340 
000342 



010246 
010346 
010446 



032761 
001060 
032761 
001054 
032761 
001050 



005705 
00.1444 



DOSWIT: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP> 
R4, -<SP> 



OOOOOOG 
OOOOOOC 
0000000 



OOOOOOG 
OOOOOOG 
OOOOOOG 



See if this job is allowed to use virtual lines 

BIT #*NOVLN, LSW2<R1); Can job use virtual lines? 

BNE 20* ; Br if not 

BIT #<*SUCF ! *LOFCF>> LSW9<R1); Doing logon/logoff processing? 

BME 20* i Br if yes 

BIT #*NOIN, LSW3(R1> ;Doing logon/logoff processing? 

BME 20* /Br if yes — don't allow line switching 

Determine if we are switching to a virtual line or back to the primary 



TST 
BEG 



R5 
10* 



; Switching to primary line? 

; Br if switching to primary line 



We are switching to a virtual line 
See if line has been allocated yet. 



000344 
000350 
000354 
000356 
000360 



016102 
016203 
060503 
105743 
001035 



OOOOOOG 
OOOOOOG 



MOV 


LNPRIM<R1>, R2 


MOV 


LSECPT(R2),R3 


ADD 


R5, R3 


TSTB 


-<R3) 


BNE 


10* 



Get primary line # 

Point to table of secondary line numbers 

Point to entry for selected line 

Has this virtual line been allocated yet? 

Br if yes 



Request to switch to a virtual line which has not been 

allocated yet. 

See if we can find a free virtual line. 



000362 
000366 
000372 
000374 
000400 
000402 
000406 



012703 
020327 
101032 
005763 
001403 
062703 
000767 



OOOOOOG 
OOOOOOG 

OOOOOOG 

000002 



MOV #FSTSL, R3 

3*: CMP R3, #LSTSL 

BHI 20* 

TST LMPRIM(R3) 

BEG 4* 

ADD #2, R3 

BR 3* 



Get # of first virtual line 

Checked all? 

Br if yes 

Is this line available? 

Br if yes 

Get index to next virtual line 



We have found a free virtual line. 
It's index is in R3. 
Initialize it. 



000410 
000412 
000414 
000416 
000424 
000426 



010146 
010301 
005000 

012601 
103414 



4*: 



MOV 


R 1 , - ( SP ) 


MOV 


R3, Rl 


CLR 


RO 


OCALL 


INITLM 


MOV 


<SP)+, Rl 


BCS 


20* 



Save current line number 

Get new virtual line number 

No secondary start-up command file 

Initialize the line 

Get back original line number 

Br if unable to initiate new line 
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58 000430 

59 000434 

60 000440 

61 000444 

62 000446 

63 000450 
64 

65 

66 

67 000454 

68 

69 

70 

71 000460 

72 000462 

73 000464 

74 000466 



016102 
010263 
016204 
060504 
110344 
010263 



000000G 
OOOOOOG 
0000006 



OOOOOOG 



MOV 

MOV 

MOV 

ADD 

MOVB 

MOV 



LNPRIM(R1)>R2 



LSECPKR2) 
R5, R4 
R3, -<R4> 



R4 



Get primary line number 

Say primary job is parent of job started 

Point to secondary line # table 

Point to desired entry 

Associate virtual line with primary 

Set primary line number for virtual line 



004737 000470 ' 



012604 
012603 
012602 
000207 



We are switching to a virtual line that has been initialized 
10*: CALL LINSWT ; Set up line number prompt 

i 

i Finish ed 

i 

20*: 



MOV 


<5P>+, R4 


MOV 


<SP>+, R3 


MOV 


<SP>+, R2 


RETURN 
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. SBTTL LINSWT — Switch to a virtual line 



LINSWT is called to switch association between a 
physical line and one of the virtual lines 
associated with the user. 

Inputs: 
Rl = Current virtual line index number 
R5 = Number of the virtual to be switched to (0-MAXSEC) 



000470 010146 

000472 010246 

000474 010346 

000476 010446 

000500 010546 



LINSWT: MOV 
NOV 
MOV 
MOV 
MOV 



00050* 



052761 000000G OOOOOOG 



000510 004737 000776' 



000514 042761 OOOOOOG OOOOOOG 



016102 OOOOOOG 
000526 001403 
000530 



000536 016102 OOOOOOG 

000542 010201 

000544 005705 

000546 001404 

000550 016201 OOOOOOG 

000554 060501 

000556 114101 

000560 010162 OOOOOOG 

000564 032761 OOOOOOG OOOOOOG 

000572 001470 



000574 016102 

000600 00 1 404 
000602 

000610 000447 



OOOOOOG 



R 1 , - < SP > 
R2.. -<SP> 
R3, -(SP) 
R4, -<SP) 
R5, -(SP) 



Set flag saying job no longer connected to terminal 

BIS #*VNOTT, LSW(Rl) ; Say not connected to terminal 

Reduce execution priority of job we are disconnecting from 

CALL SPPRED /Reduce execution priority of discon proc 

Clear flag that says bell has been rung for virtual line wait 
condition for line we are switching away from. 



BIC 



#*VBELL, LSW9<R1 >; Say we need to ring bell for wait condition 



If job we are switching away from has an active display window, 
tell the display window manager. 



MOV LWIND0<R1),R2 
BEG 10* 
OCALL WINSF 



i Does this job have an active window? 

; Br if not 

; Say we are switching from this job 



Set info in virtual line tables 

10*: MOV LNPRIM<R1),R2 ; GET PRIMARY LINE # 

DOES HE WANT PRIMARY LINE? 
BRANCH IF YES 
POINT TO SEC LINE # TABLE 
POINT TO D I SIRED ENTRY 
GET VIRTUAL LINE # 
1*. MOV R1,LNMAP<R2> i SWITCH LINE CONTROL TO VIRTUAL LINE 

HAS THIS LINE BEEN INITIALIZED? 
BR IF NOT 

If the line we are switching to has a display window active* 

call window manager to let it know job has reconnected to terminal. 

i Display window active for new line? 

; Br if not 

.Tell window manager about reconnect 



MOV 


LNPRIM(R1),R2 


MOV 


R&» R 1 


TST 


R5 


BEG 


1* 


MOV 


LSECPT<R2),R1 


ADD 


R5, Rl 


MOVB 


-(Rl), Rl 


MOV 


Rl, LNMAP<R2) 


BIT 


#*INIT, L5W<R1> 


BEG 


6* 



MOV 


LWIND0<R1),R2 


BEG 


8* 


OCALL 


WINST 


BR 


9* 
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58 
59 
60 
61 
62 

63 000612 

64 000620 

65 000624 

66 000630 

67 000632 

68 000636 

69 000642 

70 000646 

71 000652 

72 000656 

73 000672 

74 000676 

75 000700 

76 000704 

77 000706 

78 000710 

79 000714 

80 000722 
81 

82 
83 

84 000730 

85 000736 

86 000744 

87 000750 
88 

89 
90 

91 000754 

92 000756 

93 000760 

94 000762 

95 000764 

96 000766 
97 

98 000770 
000773 
99 



012704 
026104 
002434 
160461 
012703 
062705 
110537 
016102 

020261 
101002 
016102 
1 1 2342 
077407 
1 026 1 



042761 
116161 
004777 
004737 



012605 
012604 
012603 
012602 
012601 
000207 

012 
043 



0000000 
0000000 
000000G 
0000000 



015 
012 



8*: 



000006 
0000000 

000000G 
000770 ' 
000060 
000773 ' 
OO00O0G 

000000G 

0000O0G 

000000G 



5$: 



4$: 



3$: 



The line me are switching to does not have a display window active. 
At this point Rl contains the new line index #. 
Try to insert CR-LF-#->--CR --LF at head of 
new line's output buffer. 

#* DISABLE ** 

# OF CHARS WE WANT TO INSERT 

ROOM FOR OUT CHARS? 

IF NOT THEN SKIP INSERT 

CLAIM THE SPACE 

POINT TO THE MESSAGE 

CONVERT VIRTUAL # TO ASCII CHAR 

MOVE INTO MESSAGE 

POINT TO HEAD OF OUTPUT LIST 

MAP TO TT BUFFER AREA 

AT HEAD OF BUFFER? 

BRANCH IF NOT 

WRAP AROUND TO END 

MOVE MESSAGE TO USER'S BUFFER 

LOOP IF MORE TO DO 

UPDATE CHARACTER POINTER 

RESTORE MAPPING 

*•* ENABLE ** 

Set up info for job we are switching to 



DISABL 




MOV 


#6, R4 


CMP 


L0TSPC(R1),R4 


BLT 


3* 


SUB 


R4, L0TSPC<R1 > 


MOV 


#NLMSG, R3 


ADD 


#'0.. R5 


MOVB 


R5, <NLMSG+3> 


MOV 


L0TPNT(R1),R2 


TTMAP 




CMP 


R2, LOTBUF(Rl) 


BH1 


4* 


MOV 


L0TEND<R1),R2 


MOVB 


<R3)+, -~<R2> 


SOB 


R4> 5* 


MOV 


R2, L0TPNT<R1) 


UNMAP 




ENABL 





OOOOOOG 
OOOOOOG 



9*: 



6*: 



BIC 
MOVB 
CALL 
CALL 

Finished 

MOV 
MOV 
MOV 
MOV 
MOV 



#*VNOTT, LSW(Rl) ; SAY RECONNECTED TO TERMINAL 
LBSPRKRD.LPRKRDiSET CURRENT PRI - BASE PRI 
©TRNSTR i TRY TO START PRINTING 

FORCEX ; FORCE EXECUTION OF NEW LINE 



<SP>+, R5 
<SP>+, R4 
<SP)+, R3 
<SP)+, R2 
<SP)+, Rl 



RETURN 



076 NLMSG: 
015 



ASC 1 1 <12X1 5>/>#/<12><l 5> 

EVEN 
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4 








5 








6 
7 








a 








9 


000776 


010246 




10 


001000 


116102 


OOOOOOG 


11 


001004 


120237 


0000000 


12 


001010 


101414 




13 


001012 


120237 


OOOOOOG 


14 


001016 


103011 




15 


001020 


1 1 3700 


0000000 


16 


001024 


160002 




17 


001026 


120237 


0000000 


IS 


001032 


003003 




19 


001034 


1 1 3702 


OOOOOOG 


20 


001040 


00 5202 




21 


001042 


110261 


OOOOOOG 


22 








23 








24 








25 


001046 


012602 




26 


001050 


000207 





. S3BTTL SPPRED — Reduce execution priority for disconnect process 

This routine is called to reduce the execution priority of a subprocess 
as it disconnects from terminal control. 

Inputs: 
Rl = Job index of process whose priority is to be reduced 



GET BASE PRIORITY FOR JOB 

IS THIS A FIXED PRIORITY JOB? 

BR IF YES 

REAL-TIME JOB? 

BR IF YES 

GET AMT TO REDUCE FOR DISCONNECTED JOBS 

REDUCE FOR DISCONNECTED JOB 

DID PRIORITY GO OUT OF NORMAL RANGE? 

BR IF NOT 

GET LOWEST NORMAL PRIORITY 

» SET CURRENT PRIORITY FOR JOB 



SPPRED: 


MOV 


R2, -(SP) 




MOVB 


LBSPRI(R1)>R2 




CMPB 


R2, VPRILO 




J3L0S 


7* 




CMPB 


R2, VPRIHI 




BHIS 


7* 




MOVB 


VPRIVR,RO 




SUB 


RO, R2 




CMPB 


R2, VPRILO 




BGT 


1% 




MOVB 


VPRILO, R2 




INC 


R2 


7*: 


MOVB 


R2, LPRKR1) 


; Fin i 


shed 






MOV 


<SP)+, R2 




RETURN 





c 

i 
f 
< 
< 
t 
< 
I 
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< 
< 

< 

€ 

4 

C 
i 
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i 
t 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 001052 
15 
16 
17 

18 00 

19 00 

20 00 



21 00 

22 00 

23 00 

24 00 
25 

26 
27 

28 00 

29 00 

30 00 
31 

WW 

34 00 

35 00 

36 00 

37 00 

38 00 

39 00 

40 00 

41 00 

42 00 

43 00 

44 00 

45 00 
46 

47 
48 
49 

50 00 

51 00 
52 

53 
54 
55 00 



1052 
1054 
1060 
1064 
1066 
1074 
1100 



1104 
1110 
1112 



1116 
1122 
1124 
1130 
1136 
1144 
1146 
1154 
1162 
1170 
1176 
1204 



1210 
1212 



010102 
005037 
016201 
001407 
016137 
005062 
004737 



013700 
001442 
004737 



004737 
010104 
110264 
112764 
032762 
00 1 403 
112764 
1 1 6264 
112764 
013764 
013764 
010462 



01 020 J. 
004737 



ooooooe 

0000000 

OOOOOOG 
OOOOOOG 
0000000 



0000020 
000000G 

0000000 

000000G 
0000O0G 
000000G 

0000000 
OOOOOOG 
000000G 
000002G 
OOOOOOG 
OOOOOOG 



OOOOOOG 



. SBTTL STTCPL — Set completion routine for TT activation 

Process the EMT that connects a completion routine to TT input 
character reception. 

EMT argument block: 

. BYTE 1, 133 

. WORD completion, routine 

I n p uts: 
R X — -Job index number 

STTCPL: 

Cancel any existing completion routine connection. 

■> Save job index number in R2 
; Assume no completion routine now 
; Get addr of completion Q element 
; Br if none 
CQ*RTN<R1 ), URO ; Return old compl rtn address in RO 

» Say no completion Q element now 
; Release the queue element 

See if the address of a new completion routine was specified 



MOV 


Rl, R2 


CLR 


URO 


MOV 


LTTCR<R2>, Rl 


BEG 


1* 


MOV 


CQ*RTN<R1 >,U 


CLR 


LTTCR(R2) 


CALL 


QFREE 



1$: 



MOV EMTBLK+2, RO 
BEG 9* 
CALL VALADW 



;Did he specify a compl rtn address? 

; Br if not 

iMake sure compl routine addr is valid 



Get a queue element and set up as a completion queue element 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



>$: 



CALL 

MOV 

MOVB 

MOVB 

BIT 

BEG 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

MOV 



GETQ 

R1,R4 

R2, CQ*J0B<R4) 



; Get a queue element (address in Rl) 
; Get address of queue element 
; Set job number in Q element 
#S*TTSC, CQ*RNS<R4); Set execution state for job 
#*NOINT, LSW7(R2)> Is job running non-interactivelyT' 
2* > Br if not 

#S$IOFN, CG*RNS<R4)> Set non-interactive execution state 
LPRKR2), CQ$PRKR4>; Set execution priority 
#CP*STD> CG*CP<R4)s Set compl routine class priority 
EMTBLK+2, CQ$RTN<R4>; Set address of compl routine 
EMTMAP, CQ$PA5(R4); Set EMT entry mapping for par 5 
R4, LTTCRCR2) ; Set address of queue element 



If there are any characters pending now, trigger a completion 
routine immediately. 



001222' 



1216 000137 OOOOOOG 



MOV 
CALL 

Finished 

9*: JMP 



R2, Rl 
TTCPL 



EMTXIT 



;Get job index # to Rl for TTCPL 

i See if we need to do compl rtn now 
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1 



SBTTL TTCPL 



Queue a TT completion routine 



3 








4 








5 








6 








7 








8 








9 








10 


001222 


010246 




11 


001224 


010446 




12 








13 








14 








15 


001226 






16 


001234 


016104 


ooooooe 


17 


001240 


00 1 434 




18 


001242 


016102 


0000000 


19 


001246 


020261 


0000000 


20 


001252 


001427 




21 


001254 


005061 


0000000 


22 


001260 






23 








24 








25 








26 


001266 






27 


001274 


103414 




28 








29 








30 








31 


001276 


005061 


0000000 


32 


001302 


042700 


177400 


33 


001306 






34 








35 








36 








37 


001314 


010064 


0000000 


38 


001320 


004737 


0000000 


39 


001324 


000402 




40 








41 








42 








43 








44 


001326 


010461 


0000000 


45 








46 








47 








48 


001332 






49 


001340 


012604 




50 


001342 


012602 




51 


001344 


000207 




52 








53 




000001 




Errors d 


e t e c t e d 








Check to see if there are any input characters pending and the job 
wants a completion routine executed for input characters. 
If bo, queue the completion request. 



Inputs: 
Rl = viob index number 



TTCPL: 



MOV 
*!0V 



R2, -<SP) 
R4, -<SP) 



See if job want completion for character input 



DISABL 




MOV 


LTTCR<R1), R4 


BEQ 


9* 


MOV 


LINPNT<R1>, R2 


CMP 


R2»LINNXT<R1> 


BEQ 


9* 


CLR 


LTTCR<R1) 


ENABL 





*# Disable interrupts **• 
Does job want TT input compl routine? 
Br if not 

Get pointer to next char to get 
Are there any pending input chars? 
Br if not 

Say we are using completion routine 
*# Enable interrupts #* 



Get next pending input character 



OCALL 
BCS 



DELCHR 
8* 



We tjot a character 



CLR 


LRTCHR(Rl) 


BIC 


# A C<377>, RO 


OCALL 


CVTLC 



Queue the completion routine 

MOV RO, CQ*R0<R4> 
CALL QCOMPL 
BR 9* 



; Get next char from input buffer 
; Br if no chars available 



; Say no read time-out pending 

;Clear all but low-order 8 bits of char 

^Possibly convert to upper case 



j Pass char to compl rtn in RO 
i Queue the completion routine 



No characters available. 

Leave the completion request pending. 



8*: MOV 


R4, LTTCR 


j Finished 




9$: ENABL 




MOV 


(SP)+, R4 


MOV 


(SP)+, R2 


RETURN 





;Say compl request still pending 



; •»# Make sure interrupts are enabled ** 



END 



#** Assembler statistics 
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Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 













24B Words < 
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17920 Words 


i 70* Pages) 


RT M 
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♦LOFCF 


1-28 
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1-27 
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2 -85 




*NOIN 


1-28 


4-19 






$NOINT 


1-23 


7-38 






$NOVLN 


1-28 


4-15 






*RBRK 


1-27 


2-28 


2-90 




*SUCF 


1-28 
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$VBELL 


1-24 
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1-29 
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ASTBL1 


2-36 
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1-25 
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1-26 


7-22 
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CVTLC 


1-23 
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DELCHR 


1-22 


8-26 






DOSWIT 


1-18 


4-9# 






EMTBLK 


1-24 


7-28 


7-43 




EHTMAP 


1-22 


7-44 






EMTXIT 


1-24 


7-55 






FORCEX 


1-32 
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FSTSL 


1-29 


4-40 






GFTQ 


1-22 


7-34 






IN.TTLN 


1-29 


4-55 
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1-32 
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8-48 
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1-32 
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5-79* 
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1-27 
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8-19 
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LNMAP 
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LNPRIM 


1-28 
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4-43 


4-58 


LOTBUF 


1-31 


5-73 






LOTEND 


1-31 


5-75 






LOTPNT 


1-31 


5-71 


5-78* 




LOTSPC 


1-31 


5—65 


5-67* 




LPARNT 


1-29 


4-59* 






LPRI 


1-25 


1 -30 


5-85* 
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LRTCHR 


1-23 
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1-29 


1-29 


4-31 


4-60 


LSTSL 


1-29 


4-4 1 






LSW 


1-29 
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5-47 


5-84* 


LSW10 


1-27 


2-28 
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LSW2 
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LSW3 
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4-19 






LSW7 
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\ 
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i 
i 
i 
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i 
i 
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TRNSTR 1-32 
TSTTY2 l-6# 



3- 


-31 


3- 


_T7 


3- 


-5 


3- 


-21 
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